home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 40 / 040.d81 / all smiles game (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  122 lines
  1. 10 ift=0thent=1:print"[147]":load"parts",8,1
  2. 100 ifml=1then295
  3. 110 ifml=2then310
  4. 120 ifml=8then1180
  5. 130 ifjg=0thenjg=5:gosub1860
  6. 140 dimw(99,2):lv=0:print"[147][152]";:w(4,1)=33:w(4,2)=5:forb=6to13:w(b,1)=21:w(b,2)=55:next:w(82,1)=129:w(82,2)=250:w(50,1)=129:w(50,2)=250:w(99,1)=21:w(99,2)=250:sl$="                                       ":w(1,1)=17:w(1,2)=50:f$="maze 1
  7. 200 w(3,1)[178]65:w(3,2)[178]15:w(5,1)[178]85:w(5,2)[178]30:w(26,1)[178]129:w(26,2)[178]25
  8. 210 x[178]2:y[178]1:cl[178]13:ch[178]82:ml[178].
  9. 220 [151]53281,12:[151]53280,12:d[178].:x1[178].:x2[178].:x3[178].:ok[178].:ml[178].:oo$[178]"load":[139]jp[178]mz[167]pb[178][171]1:[137]1010
  10. 250 [129]t[178]54272[164]54295:[151]t,0:[130]:[151]54296,15:[139]lv[177]4[167]lv[178]4
  11. 260 ad[178]1[172]16[170]0:sr[178]15[172]16[170]2:[151]54284,ad:[151]54285,sr:[151]54282,0:[151]54281,255:[151]53281,76:[139]ml[178].[167]ml[178]1:[147]f$[170]".ml",8,1
  12. 295 [153]"stop  press fire button to dieonon":[139]ml[178]1[167]ml[178]2:[147]f$[170]"/c.ml",8,1
  13. 310 [139]x[178]2[167][153]"stopo":[137]340
  14. 330 [139]x[178]12[167][153]"o
  15. 340 gosub1720
  16. 350 j=peek(56320):ifj<>127then370
  17. 360 q=peek(54272+(1023+x+(y*40))):poke54272+(1023+x+(y*40)),abs((q)-1):goto350
  18. 370 fort=54272to54295:poket,0:next:poke54296,15:ad=1*16+0:sr=15*16+2:poke54284,ad:poke54285,sr:poke54282,0:poke54281,255:ifj<>127then420
  19. 400 ifpeek(56320)=127andd<>2then400
  20. 410 j=peek(56320)
  21. 420 ifj=119thenx1=1023+x+1:x2=y*40:ifpeek(x1+x2)<5orpeek(x1+x2)=82then530
  22. 430 ifj=123thenx1=1023+x-1:x2=y*40:ifpeek(x1+x2)<5orpeek(x1+x2)=82then530
  23. 440 ifj=126thenx1=1023+x:x2=y-1:x3=x2*40:ifpeek(x1+x3)=1then530
  24. 450 ifj=125thenx1=1023+x:x3=(y+1)*40:ifpeek(x1+x3)=1orpeek(x1+x3)=32then530
  25. 460 ifj=119thenx1=1023+x+1:x2=y*40:ifpeek(x1+x2)=32orpeek(x1+x2)=99then530
  26. 470 ifj=123thenx1=1023+x-1:x2=y*40:ifpeek(x1+x2)=32orpeek(x1+x2)=99then530
  27. 480 ifj=111thench=32:goto680
  28. 490 ifd<>2then400
  29. 500 ifd=2andsm=.thenj=126:goto530
  30. 510 ifsm=1then1070
  31. 520 goto400
  32. 530 ifd=2andj<>126thend=.:sm=.
  33. 540 x1=1023+x:x2=y*40:x3=x1+x2:pokex3,ch:poke54272+x3,cl:ifj=119thenx=x+1
  34. 560 ifj=123thenx=x-1
  35. 570 ifj=126theny=y-1
  36. 580 ifj=125theny=y+1
  37. 590 x3=1023+x+y*40:ch=peek(x3):cl=peek(54272+x3):poke54283,.:poke54280,.:poke54283,w(ch,1):poke54280,w(ch,2):poke54283,abs(w(ch,1)-1):ok=peek(x3):ifch=3thench=5:cl=9
  38. 640 pokex3,15:pokex3+54272,0:ifok<>32andd<>1then400
  39. 650 ifok=2ord=2thend=2:goto1040
  40. 660 ifok=32thend=1:j=125:poke54283,21:poke54280,y*9:poke54283,20:goto530
  41. 670 ifch=99thend=0:goto400
  42. 680 x1=1023+x:x2=y*40:gosub1080:fort=65to73:pokex1+x2,t:forh=1to80:next:next:poke54283,0:ifok=3then740
  43. 710 ifok=19then740
  44. 720 x1=1023+x:x2=y*40:x3=x1+x2:pokex3,ch:poke54272+x3,cl:goto1090
  45. 740 onjp+1goto750,790,830,870,910,950,990
  46. 750 x3=1023+x+(y+1)*40:z=peek(x3):ifz=32thenok=32:ch=5:cl=9:goto660
  47. 760 ifok<>19then1090
  48. 770 ifjp=0thenjp=1:poke53281,76:printoo$"you may advance to the next level[146]!
  49. 780 f$[178]"maze 2":lv[178]lv[170]1:[137]210
  50. 790 x3[178]1023[170]x[170](y[170]1)[172]40:z[178][194](x3):[139]z[178]32[167]ok[178]32:ch[178]5:cl[178]9:[137]660
  51. 800 [139]ok[179][177]19[167]1090
  52. 810 [151]53281,76:[153]oo$"you deserve to play the next levelwait!
  53. 820 jp=2:f$="maze 3":lv=lv+1:goto210
  54. 830 x3=1023+x+(y+1)*40:z=peek(x3):ifz=32thenok=32:ch=5:cl=9:goto660
  55. 840 ifok<>19then1090
  56. 850 poke53281,76:printoo$"lets see if you can conquer this...
  57. 860 jp[178]3:f$[178]"maze 4":x[178]12:y[178]20:ch[178]1:cl[178]0:lv[178]lv[170]1:[137]220
  58. 870 x3[178]1023[170]x[170](y[170]1)[172]40:z[178][194](x3):[139]z[178]32[167]ok[178]32:ch[178]5:cl[178]9:[137]660
  59. 880 [139]ok[179][177]19[167]1090
  60. 890 [151]53281,76:[153]oo$"you may advance to a new level!wait
  61. 900 lv=lv+1:jp=4:f$="maze 5":goto210
  62. 910 x3=1023+x+(y+1)*40:z=peek(x3):ifz=32thenok=32:ch=5:cl=9:goto660
  63. 920 ifok<>19then1090
  64. 930 poke53281,76:printoo$"you may attempt another level![146]
  65. 940 lv[178]lv[170]1:jp[178]5:f$[178]"maze 6":[137]210
  66. 950 x3[178]1023[170]x[170](y[170]1)[172]40:z[178][194](x3):[139]z[178]32[167]ok[178]32:ch[178]5:cl[178]9:[137]660
  67. 960 [139]ok[179][177]19[167]1090
  68. 970 [151]53281,76:[153]oo$"try this next level!wait
  69. 980 lv=lv+1:jp=6:f$="maze 7":goto210
  70. 990 x3=1023+x+(y+1)*40:z=peek(x3):ifz=32thenok=32:ch=5:cl=9:goto660
  71. 1000 ifok<>19then1090
  72. 1010 print"[147]   you have won... but not conquered!":print:print"            i will return!":ifpbthenpb=0:goto1035
  73. 1030 gosub1570:fort=1to2000:next:gosub1810:print"[147]";:goto1850
  74. 1035 print"[147]";:goto1850
  75. 1040 ifpeek(x3-40)=32thenj=126:poke54283,21:poke54280,y*9:poke54283,20:goto400
  76. 1050 ifpeek(x3-40)=99thend=.:j=126:goto530
  77. 1060 j=peek(56320):ifj=119orj=123thensm=1:goto420
  78. 1070 j=111:goto480
  79. 1080 poke54283,129:poke54280,5:return
  80. 1090 iflv=.then1840
  81. 1100 poke53281,76:printoo$"you were lucky this time[146]!":ifjp=.thenstop
  82. 1120 lv=lv-2:onjpgoto780,820,860,900,940,980,1090
  83. 1130 poke56334,peek(56334)or1:poke53272,(peek(53272)and240)+12:ifpeek(12288)=60then1180
  84. 1150 ml=8:load"parts",8,1:fori=.to255:forj=.to7:get#1,a$:poke12288+j+i*8,asc(a$+chr$(.)):next:next:close2
  85. 1180 print"[147]";:print"[147]";
  86. 1200 print"[147][144]";:jq=56320:poke198,0:sw=12:poke53281,0:poke53280,0:jp=0:mz=7
  87. 1205 print"press 'q' to return to loadstar":print"press fire to play":cq=cq+1:forg=1tosw:geta$:ifa$=""andpeek(jq)=127thennext
  88. 1230 ifa$<>""orpeek(jq)<>127then1300
  89. 1240 ifcq=1orcq=9thenprint"[144]";:goto1205
  90. 1250 ifcq=2orcq=8thenprint"[151]";:goto1205
  91. 1260 ifcq=3orcq=7thenprint"[152]";:goto1205
  92. 1270 ifcq=4orcq=6thenprint"[155]";:goto1205
  93. 1280 ifcq=5thenprint"";:goto1205
  94. 1290 cq=1:sw=abs(sw)-1:goto1240
  95. 1300 ifa$="q"then62999
  96. 1305 poke53281,12:poke53280,12:print"[147]o thank you[146] o":gosub1830:gosub1770:ifga=1thenforg=1to1000:next:goto1500
  97. 1320 print"[147]ron coffen":print"      presents":forg=1to2500:next:fort=.to24:poke54272+t,0:next:print:print"[147][153]gggggggggggggggggggggggggggggggggggggggg":print"[149]     eee  e    e":print"    e   e e    e":print"    eeeee e    e":print"    e   e e    e":print"    e   e eeee eeee":print:print
  98. 1430 print"           eee  e e  eee e   eee  eee":print"          e    e e e  e  e   e   e":print"           ee  e   e  e  e   ee   ee":print"             e e   e  e  e   e      e":print"          eee  e   e eee eee eee eee":print:print"[153][153]gggggggggggggggggggggggggggggggggggggggg
  99. 1490 [142]:[141]1680
  100. 1500 [153]"";:[153]"      press fire on joystick 2.":[153]"                   stopoo
  101. 1520 ifpeek(56320)=127then1520
  102. 1530 x1=1043:x2=920:gosub1810:fort=65to73:pokex1+x2,t:forh=1to60:next:next:x1=1044:x2=920:gosub1810:fort=65to73:pokex1+x2,t:forh=1to60:next:next:gosub1610:goto140
  103. 1560 stop
  104. 1570 gosub1830:poke54296,15:poke54277,8:poke54278,255:poke54276,23:f1=10:forz=1to24:f2=30:poke54273,f1:fory=1to10:poke54287,f2:f2=f2*1.01:next:f1=f1+8:next:poke54296,0:return
  105. 1610 gosub1830:poke54296,15:poke54277,8:poke54278,255:poke54276,21:f1=2:forz=1to24:f2=80:poke54273,f1:fory=1to5:poke54287,f2:f2=f2/1.1:next:f1=f1+9:next:poke54296,0:return
  106. 1650 gosub1830:poke54296,15:poke54277,8:poke54278,255:poke54276,85:f1=100:f2=230:forz=1to77:poke54272,f1:poke54287,f2:f2=f2-2:f1=f1*.99:next:poke54296,0:return
  107. 1680 poke54296,15:poke54277,15:poke54298,17:poke54276,19:poke54287,64:forn=1to4:forf=1to255step1.5:poke54273,f:next:forf=255to1step-1.5:poke54273,f:next:next:poke54296,0:return
  108. 1720 gosub1830:poke54296,15:poke54277,15:poke54286,67:poke54287,12:poke54276,21:forf=.to255step2:poke54273,f:next:forf=255to0step-2:poke54273,f:next:return:j=peek(56320):return
  109. 1770 q=50:f2=150:poke54296,15:poke54277,4:poke54278,12:forz=1to50:f1=int(100*rnd(1))+10:poke54276,23:fort=1toq:next:poke54273,f1:poke54287,f2:poke54276,20:q=q-1:f2=f2-3:next:poke54273,30:return
  110. 1810 gosub1830:poke54284,16:poke54285,242:poke54296,15:poke54283,129:poke54280,5:return
  111. 1830 forg=54272to54296:pokeg,0:next:return
  112. 1840 print"[147]              p game over[146] p":gosub1650
  113. 1850 forg=1to1000:next:clr:restore:ga=1:poke54296,0:goto1200
  114. 1860 poke53272,(peek(53272)and240)or4:nm$="[210]on [195]offen":pr$="[193]ll [211]miles":deffncn(n)=int(19-n/2):t$="                         ":c=0:c$="":print"[147]":p